Imports System.Data.SqlClient

Public Class EmailWeb

    Public Function GenerarEmailWeb(ByVal CodRS As Integer, ByVal EmaWeb As String, Optional ByVal Obs As String = "") As DataSet
        Dim DS As New DataSet
        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "EmailWebGenerar", New SqlParameter("@CodRS", CodRS), _
        New SqlParameter("@EmaWeb", EmaWeb), New SqlParameter("Obs", Obs))
        Return DS
    End Function

End Class
